home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Moscow ML 1.42 / src / tools / mksmlprc < prev    next >
Encoding:
Text File  |  1997-08-18  |  188 b   |  12 lines  |  [TEXT/R*ch]
  1. while(<>) {
  2.     chop;
  3.     push(@prim, $_);
  4. }
  5.  
  6. print "val primitives_table = #[\n";
  7.  
  8. for ($i = 0; $i < $#prim; $i++) {
  9.     print "  \"", $prim[$i], "\",\n";
  10. }
  11. print "  \"", $prim[$#prim], "\"];\n";
  12.